home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / ORGANNEL CHARTS.cpt / ORGANNEL CHARTS™ / card_32369.txt < prev    next >
Text File  |  1988-02-06  |  916b  |  41 lines
  1. -- card: 32369 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2577
  5. -- name: 1aa
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=189 top=199 right=221 bottom=261
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Add Sheet
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the cursor to 4
  23.   set lockScreen to true
  24.   put the userLevel into saveLevel
  25.   if the userLevel <5 then set userLevel to 5
  26.   if the userLevel <5 then exit mouseUp
  27.   go to card id 9861
  28.   doMenu "Copy Card"
  29.   go to card "1aa"
  30.   doMenu "Paste Card"
  31.   get the name of this card
  32.   set the name of this card to "1aa"
  33.   go to card id 32369
  34.   doMenu "Delete Card"
  35.   go to card "1aa"
  36.   set userLevel to saveLevel
  37.   set lockScreen to false
  38.   visual effect dissolve slow
  39. end mouseUp
  40.  
  41.